REPORT 

ZDEMO INTERCTIVE RPRTS BUTTONS 

NO STANDARD PAGE HEADING LINE-SIZE 
150. 


types : begin of tv Ι[81 ," from vender master 
table(general section) 

lifnr type lifnr , " Account Number of Vendor or 
Creditor 

namel type namel gp, "name 

ortOl type ortOl_gp, " city 

landl type landl_gp, " country key 

end of tv Ifal. 


types : begin of tv ekko, " Purchasing Document 
Header 
ebeln type ebeln, "Purchasing Document Number 


aedattype erdat, "Date on Which Record Was 
Created 

LIFNR TYPE LIFNR, 

end ofty_ekko. 


data : it_Ifal type table of tv Ifal, 
it ekko tvpe table of tv ekko, 
wa Ifal type tv Ifal, 
wa ekko tvpe tv ekko, 
v_lifnr type lifnr, 
V NAMEL TYPE NAMEL GP, 


IT SELECTED ΙΕΑΙ TYPE TABLE OF TY_LFAI, 
v_box(1) type c. 


select-options 5 lifnr for v lifnr default 1 to 100. 


select lifnr namel ortO1 landl from Ifal into table 
it_lfal where lifnr in s lifnr. 


SET PF-STATUS 'ZSTATUS'. 
perform display_data. 


sy-Isind = 0. 


AT USER-COMMAND. 
CASE SY-UCOMM. 


WHEN 'SEAL'. 

V BOX = 'X'. " CHECKED. 
PERFORM DISPLAY DATA. 
WHEN 'DSEAL'. 

V BOX = ''. "DESELECT 
PERFORM DISPLAV DATA. 
WHEN 'DOWN'. 

REFRESH IT SELECTED ΙΓΑΙ. 
DATA. V LINES TVPE i. 


DESCRIBE LIST NUMBER OF LINES V LINES. 


DO V_LINES TIMES. 

CLEAR WA LFAI. 

READ LINE SY-INDEX FIELD VALUE V BOX WA LFAl- 
LIFNR. 


ΕΝ BOX = 'X'. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT' 
EXPORTING 


INPUT = WA_LFAI-LIFNR 
IMPORTING 
OUTPUT = WA _LFAI-LIFNR 


READ TABLE IT_LFA1 INTO WA_LFA1 WITH KEY lifnr 
WA_LFAI-LIFNR. 


IF SY-SUBRC = 0. 

APPEND WA LFAL TO IT_SELECTED_LFAIl. 
ENDIF. 

CLEAR : WA_LFAI, V BOX. 

ENDIF. 

ENDDO. 


IF IT SELECTED LFAT IS NOT INITIAL. 
CALL METHOD 
CL_GUI_FRONTEND_SERVICES=>GUI_DOWNLOAD 
EXPORTING 
FILENAME = 'D:/BUTTON/BUTTON.TXT' 
write field separator = ' ' 
CHANGING 
DATA TAB = IT SELECTED ΙΕΑΙ. 


IF SY-SUBRC = 0. 

MESSAGE 'SUCCESSFUL DOWNLOADED' TYPE 'S'. " 
STATUS MESSAGE 

ENDIF. 


ELSE. 

MESSAGE 'NO DATA TO DOWNLOAD ' TYPE 'S'. " 
STATUS MESSAGE 

ENDIF. 


WHEN 'GETPOS'. 
PERFORM COLLECT SELECTED LINES. 


IF IT SELECTED ΙΓΑΙ IS NOT INITIAL . 


SELECT EBELN AEDAT LIFNR INTO TABLE IT_EKKO 
FROM EKKO FOR ALL ENTRIES IN IT SELECTED LFA1 
WHERE LIFNR = IT_SELECTED_LFAI-LIFNR. 


IF IT EKKO IS NOT INITIAL. 

SORT IT_EKKO BY LIFNR EBELN. 

LOOP AT IT_EKKO INTO WA_EKKO. 

WRITE :/ SY-TABIX, WA_EKKO-EBELN, WA_EKKO-LIFNR, 
WA_EKKO-AEDAT. 

ENDLOOP. 

ELSE. 


WRITE :/ 'NO PURCHASE FOUND FROM VENDER'. 


ENDIF. 


ELSE. 

MESSAGE 'NO VENDER SELECTED FROM THE LIST ' 
TYPE 'S'. 

ENDIF. 


ENDCASE. 


FORM DISPLAY DATA. 

LOOP AT it Ifal into wa Ifal. 

write :/V BOX AS CHECKBOX , wa Ifal-lifnr color 1 , 
wa lfal-namel color 3, wa_lfal-ortOl color 5, wa Ifal- 
landi color 7. 

ENDLOOP. 

ENDFORM. 


FORM COLLECT SELECTED LINES. 
REFRESH IT SELECTED ΙΓΑΙ. 

DATA V. LINES TYPE I. 

DESCRIBE LIST NUMBER OF LINES V LINES. 


DO V LINES TIMES. 

CLEAR WA Ι ΓΑΙ. 

READ LINE SY-INDEX FIELD VALUE V BOX WA LFAl- 
LIFNR. 


ΕΝ BOX = ΙΧ. 
CALL FUNCTION 'CONVERSION EXIT ALPHA INPUT' 
EXPORTING 


INPUT = WA LFAL-LIFNR 
IMPORTING 
OUTPUT = WA LFAL-LIFNR 


READ TABLE IT ΙΓΑΙ INTO WA LFAL WITH KEY LIFNR = 
WA LFAL-LIFNR. 


IF SY-SUBRC = 0. 
APPEND WA LFAL TO IT_SELECTED_LFAIl. 


ENDIF. 

CLEAR : WA_LFAI, V_BOX. 
ENDIF. 

ENDDO. 

ENDFORM. 


